Malvales_its2 <- read.csv("Malvales_its2.csv")
library(seqinr)
library(ape)
setwd(dir ="~/Desktop/mrbayes/Malvales")
Malvales_its2 <- read.csv("Malvales_its2.csv")
Malvales_its2_genbank_its2 <- read.GenBank(Malvales_its2$its2)
write.dna(Malvales_its2_genbank_its2, file = "Malvales_its2.fasta", format = "fasta", append = FALSE)
Malvales_its2_seqinr <- read.fasta(file = "Malvales_its2.fasta", seqtype = "DNA", as.string = TRUE, forceDNAtolower = FALSE)
write.fasta(sequences = Malvales_its2_seqinr, names = Malvales_its2$speciesname, file.out = "Malvales_its2_sequences.fasta")
Malvales_its2 <- read.csv("Malvales_its2.csv")
Malvales_its2_genbank_its2 <- read.GenBank(Malvales_its2$its2)
write.dna(Malvales_its2_genbank_its2, file = "Malvales_its2.fasta", format = "fasta", append = FALSE)
Malvales_its2_seqinr <- read.fasta(file = "Malvales_its2.fasta", seqtype = "DNA", as.string = TRUE, forceDNAtolower = FALSE)
write.fasta(sequences = Malvales_its2_seqinr, names = Malvales_its2$speciesname, file.out = "Malvales_its2_sequences.fasta")
